10 CLS:SCREEN0,0,0:A$="BONJOUR":C=1:FORI=1TO7:N$=MID$(A$,I,1):FORJ=0TO7:T=PEEK(59469+J+8*(ASC(N$)-33)):FORP=7TOSTEP-1:IFINT(T/2^P)=1THENBOXF(I*40+(7-P)*5-20,200-J*25)-(I*40+(7-P)*5-16,176-J*25),C:T=T-2^P
20 NEXTP:NEXTJ:C=C+1:NEXTI